home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / CliSize / clisize.p < prev   
Encoding:
Text File  |  1997-05-06  |  1.3 KB  |  50 lines
  1. {
  2.   ------------------------------------------------------------------------
  3.   -     Clisize - Version 1.0 by Thomas Schmid                 -
  4.   -     Vergrössert aktuelles Window.                     -
  5.   ------------------------------------------------------------------------
  6. }
  7.  
  8.  
  9. Program Clisize;    { fertig sind es 3972 Bytes - kürzer gehts mit dem PCQ nimmer }
  10.  
  11. {$I "Include:intuition/intuition.i"    }
  12. {$I "Include:intuition/intuitionbase.i"}
  13.  
  14.  
  15. VAR
  16.  
  17.     IBs    : IntuitionBasePtr;
  18.  
  19. {
  20.     Man muß, um Zugriff auf die IntuitionBase zu erlangen,
  21.     1. einen eigenen I.Pointer (hier IBs ) deklarieren, um
  22.     2. Über Openlibrary() den gültigen Zeiger holen zu können.
  23. }
  24.  
  25.  
  26.  
  27. BEGIN
  28.  
  29.   IBs:=IntuitionBasePtr(Openlibrary("intuition.library",0));
  30.  
  31.   IF IBs<>NIL THEN    { ok ? Dann ... }
  32.     BEGIN
  33.  
  34.     { als erstes Window nach links oben schieben, }
  35.     MoveWindow( IBs^.ActiveWindow,
  36.            -1*(IBs^.ActiveWindow^.LeftEdge),
  37.            -1*(IBs^.ActiveWindow^.TopEdge));
  38.  
  39.     { dann auf maximale Größe bringen ! }
  40.     SizeWindow(  IBs^.ActiveWindow,
  41.            ((IBs^.ActiveScreen^.Width)-(IBs^.ActiveWindow^.Width)),
  42.            ((IBs^.ActiveScreen^.Height)-(IBs^.ActiveWindow^.Height)) );
  43.  
  44.     CloseLibrary(LibraryPtr(IBs));        { und wieder aufräumen }
  45.     END
  46.   ELSE    writeln("Kann intuition.library nicht öffnen");     { ansonsten Fehlermeldung }
  47.  
  48. END.
  49.  
  50.